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vv VV AAAAAA xx XX PPPPPPPP SSSSSSSS_ LL 
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vv VV AA AA Kx PPPPPPPP SSSSSS LL 
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vv VV AAAAAAAAAA KX XX pp $$ LL 
VV VV AAAAAAAAAA XX Xx PP SS LL 
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LL I] ss | 
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SUBROUTINE VAXPSL (LUN,ERROR_PSL) 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL FQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONL ACCOR E WITH TH E OF SUCH LICENSE AND WITH THE 
HI FTWARE OR ANY OTHER 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CoRPORAT iO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR BRIAN PORTER CREATION DATE 24=JUL-1979 
Functional description: 


WAIN ToT 


This module is called to display the vax psl. 
Modified by: 


v03-001 SARO107 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


v02-002 BP0002 Brian Porter _— 11-MAY-1981 
Added include statement and modified necessary code 
to enable its use. 

v02-001 BP0001 Brian Porter 11-FEB-1981 - 
son ag call to UNUSED_BITS. Added code to print a 32-bit 
psl image. 
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include ‘src$:modes.for /nolist' 
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BYTE LUN 
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INTEGER®4 FIELD 

INTEGER®4 COMPRESSC 

INTEGER®4 ERROR_PSL 

CHARACTER*®31 V1PSL(0:7) 

cHARACTERSTG  VepSt (6197) 

DATA V1PSL(0) /*C-BIT#'/ 

DATA VIPSL(1) /*V-BIT#'/ 

DATA —-VIPSL(2) /*2-B1T#"/ i. 

DATA V1IPSL(3) /*N-BIT#'/ 

DATA ViPSL(4) /*T-BI]T#'/ 


DATA VIPSL(5) /"INTEGER OVERFLOW TRAP ENABLE*'/ 


— 
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DATA VIPSL (6) /*FLOATING UNDERFLOW TRAP ENABLE®**/ 
DATA VIPSL(7) /*DECIMAL OVERFLOW TRAP ENABLE*'/ 
DATA V2PSL (26) /"INTERRUPT STACK*'/ 

DATA V2PSL(27) /"FIRST PART DONE*'/ 

DATA V3PSL (30) /*TRACE PENDING*'/ 

DATA V3PSL(31) /*COMPATABILITY MODE®"/ 


CALL LINCHK (LUN,2) 


WRITE(LUN,50) ERROR PSL 
FORMAT(/' *,18,°ERROR PSL*,124,78.8) 


CALL OUTPUT (LUN,ERROR_PSL,V1PSL,0,0,7,'0") 
FIELD = LIBSEXTZV(16,5,ERROR_PSL) 
CALL LINCHK (LUN,1) 
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g WRITE(LUN, 100) FIELD | 
100 RMAT(* §,140, "INTERRUPT PRIORITY LEVEL = ',12.2,". 


FIELD = LIBSEXTZV(22,2,ERROR_PSL) 
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PROGRAM SECTIONS 


1 

1 

1 

1 

i 

1 § CALL LINCHK (LUN,1) 

| 

160 MATTE CLM, 192) modes (FIELD) 

0161 125 FORMAT(' "PREVIOUS MODE = ', 
i é 1 RAAT gee” (modes (FIELD) )>) 

164 FIELD = LIBSEXTZ2V(24,2,ERROR_PSL) 
Oleg CALL LINCHK (LUN, 1) | 
0168 WRITE (LUN, 130) modes (FIELD) 
0169 150 FORMA 740, "CURRENT MODE = ', | 
9170 1 RAT acgte (modes (FIELD) )>) | 
0172 CALL OUTPUT (LUN, ERROR_PSL,V2PSL,26,26,27,'0") | 
917% CALL OUTPUT (LUN, ERROR_PSL,V3PSL,30,30,31,'0") 

0176 RETURN 

0177 

0178 END | 
Name Bytes Attributes | 

0 S$CODE 426 PIC CON REL LCL SHR EXE RD NOWRT LONG 

1 SPDATA 174 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

2 $LOCAL 620 PIC CON REL te NOSHR NOEXE RD WRT LONG 

3 MODE 55 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

Total Space Allocated 1275 


ENTRY POINTS 
Address Type Name 


0-00000000 VAXPSL 
VARIABLES 
Address Type Name Address Type Name Address Type Name | 


P-00000008@ 1 *4 2-00000140 


ERROR_PSL I*4 FIELD AP-00000004@ L*1 LUN 


VAXPSL matt 1 
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ARRAYS 


Address Type Name Bytes Dimensions 
- CHAR MODES 55 (0:4) 
CHAR VIPSL 24 (0:7) 
- F CHAR V2PSL ; ( 6:67) 
- 11 CHAR V5PSL (30:31) 


LABELS 
Address Label Address Label Address Label Address’ Label 
1-00000032 50° 1-00000049 100° 1-00000072 125° 1-00000090 150° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESSC I*4 LIBSEXTZV LINCHK OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:VAXPSL/OBJ=0BJ$:VAXPSL MSRC$:VAXPSL 


/CHECK=(NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG=(NOSYMBOLS, TRACEBACK) 

/STANDARD=(NOSYNTAX RNOSOURC E FORM) 

/SHOW= (NOPREPROCESSOR ,NOINCLODE ,M 

/F77— /NOG_ Floating “ie GDPTIAIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE 


COMPILATION STATISTICS 


Run Time: 1.88 seconds 
Elapsed Time: 6.89 seconds 
Page Faults: 131 

Dynamic Memory: 171 pages 
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